library(compositions)
library(robCompositions)
x <- read.csv("123.csv")
c <- clr(x)
d1 <- dist(x, method = 'euclidean')
d1  <- as.matrix(d1)
class(d1)
save(d1, file = "euclidean.RData")

d2 <- aDist(x)
d2  <- as.matrix(d2)
class(d2)
save(d2, file = "aitchison.RData")
